Sub 부서데이터복사()

    Dim 부서 As String
    Dim 시작셀 As Range
    Dim 원본범위 As Range
    Dim 복사위치 As Range

    부서 = Range("C2").Value

    Set 시작셀 = Range("B4")
    Set 원본범위 = Range("C5:E100")
    Set 복사위치 = Sheets(부서).Range("B3")

    시작셀.AutoFilter Field:=1, Criteria1:=부서
    원본범위.Copy 복사위치
    시작셀.AutoFilter
    Range("C2").Select

End Sub